t.test.v1 <- function(X,m=0,sd=0,N=0){
	
	
	t.top <- X-m
	t.bottom <- sd/sqrt(N)
	t.val <- t.top / t.bottom
	
	return(t.val)
}